gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\manuModifySave.asp
<!-- #include file = "include/sysbase.asp" --> <% dim cmdObj, rsObj dim szName, nID szName = RealString(Request.Form("name")) nID = RealString(Request.Form("ID")) '注:此处省略对szName和nID是否为空的判断,实际中需加上! Set cmdObj = Server.CreateObject("ADODB.Command") Set rsObj = Server.CreateObject("ADODB.RecordSet") cmdObj.CommandText = "SELECT * FROM ProductType WHERE id = " & nID cmdObj.CommandType = adCmdText Set cmdObj.ActiveConnection = conn rsObj.Open cmdObj, , adOpenKeyset, adLockOptimistic rsObj("name") = szName rsObj.Update rsObj.Close set rsObj = nothing CloseConn() %> <script language = Javascript> <!-- alert("修改成功!"); this.document.location = "manuList.asp?id=<%=nID%>"; --> </script>